00010	
00020	 OUT(CHAN3,CRLF&"The following tables exist"&CRLF);
00030	OUT(CHAN3,"Name"&TB&"Parent"&TB&"OUT1"&TB&"OUT2"&TB&"OUT3"&TB&"OUT4"&
00040	     TB&"IN1"&TB&"IN2"&TB&"IN3"&TB&"IN4"&CRLF);
00050	FOR I←0 STEP 1 UNTIL TABNUM DO BEGIN
00060	 IF NAMES[I]=0 THEN DONE;
00070	 J←(IN1[I] LAND '77);K←(IN2[I] LAND '77);
00080	 IF (IN3[I]=0) THEN READ1←"        " 
00090	   ELSE READ1←CVXSTR(INNAM[IN3[I] LAND '77]);
00100	 IF (IN4[I]=0) THEN READ2←"        " ELSE
00110	   READ2←CVXSTR(INNAM[IN4[I] LAND '77]);
00120	 OUT(CHAN3,CVXSTR(NAMES[I])&TB&CVXSTR(PARENN[I])&TB&
00130	  CVXSTR(OUT1[I])&TB&CVXSTR(OUT2[I])&TB&CVXSTR(OUT3[I])&
00140	  TB&CVXSTR(OUT4[I])&TB&CVXSTR(INNAM[J])&TB&CVXSTR(INNAM[K])&TB
00150	  &READ1&TB&READ2&CRLF); END; OUT(CHAN3,LF);
00160